Imports Dominio
Public Class CriterioCompDocNumero
    Implements IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Documento).numerador - CType(y, Documento).numerador
    End Function
End Class
